@Function@<:#284,9360><:f240,2Times New Roman,0,0,0>
@Function@<:#284,9360><:f240,2Times New Roman,0,0,0>function begin(hdlg)
<:#284,9360><:f240,2Times New Roman,0,0,0>thisfile = getrunningmacrofile$()
<:#284,9360><:f240,2Times New Roman,0,0,0>metrics = getprofilestring$("wht-text<:f><:f240,2Times New Roman,0,0,0>", "Metrics", "{windir}amipro2.ini")
@If Endif@<:#284,9360><:f240,2Times New Roman,0,0,0> if metrics != ""
<:#284,9360><:f240,2Times New Roman,0,0,0> setdlgcallback(0, "{thisfile}!init")
@If Endif@<:#284,9360><:f240,2Times New Roman,0,0,0> endif
<:#284,9360><:f240,2Times New Roman,0,0,0>setdlgcallback(20, "{thisfile}!curloc")
@If Endif@<+C><:#284,9360><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "HelpFun") ' This if F1
<+C><:#284,9360><:f240,2Times New Roman,0,0,0>Box = DialogBox(".", "Text<:f><:f240,2Times New Roman,0,0,0>")
<:#284,9360><:f240,2Times New Roman,0,0,0>IF Box = -1
<:#284,9360><:f240,2Times New Roman,0,0,0>Message("Could not open dialog box; Exiting macro.")
<:#284,9360><:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 0
<:#284,9360><:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 3
<:#284,9360><:f240,2Times New Roman,0,0,0>FontChange<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 4
<:#276,9360><:ZCurPos1>call Caps()<:Z~CurPos1>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 5
<:#284,9360><:f240,2Times New Roman,0,0,0>SpecialEffects<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 6
<:#284,9360><:f240,2Times New Roman,0,0,0>WordUnderline()
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 7
<:#284,9360><:f240,2Times New Roman,0,0,0><:ZCurPos3>call <:f><:f240,2Times New Roman,0,0,0>flwcurve.smm()<:f><:Z~CurPos3>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box=8
<:#284,9360><:f240,2Times New Roman,0,0,0>call <:f><:f240,2Times New Roman,0,0,0>smartype.smm()<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box=9
<:#284,9360><:f240,2Times New Roman,0,0,0>Spacing<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box=10
<:#284,9360><:f240,2Times New Roman,0,0,0>Indent<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box=11
<:#284,9360><:f240,2Times New Roman,0,0,0>call <:f><:f240,2Times New Roman,0,0,0>cols<:f><:f240,2Times New Roman,0,0,0>()<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ENDIF
<:#284,9360><:f240,2Times New Roman,0,0,0>END FUNCTION
<+C><:#284,9360><-!><:f240,2Times New Roman,0,0,0><++>
<+C><:#284,9360><++><:f240,2Times New Roman,0,0,0>Function<-+> Caps()<-!><-!><-!>
<:#284,9360><:f240,2Times New Roman,0,0,0>thisfile = getrunningmacrofile$()
<:#284,9360><:f240,2Times New Roman,0,0,0>metrics = getprofilestring$("wht-text<:f><:f240,2Times New Roman,0,0,0>", "Metrics", "{windir}amipro2.ini")
@If Endif@<:#284,9360><:f240,2Times New Roman,0,0,0> if metrics != ""
<:f240,2Times New Roman,0,0,0> setdlgcallback(0, "{thisfile}!init")
@If Endif@<:f240,2Times New Roman,0,0,0> endif
@If Endif@<+C><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "Helpcaps<:f><:f240,2Times New Roman,0,0,0>") ' This if F1
<+C><:f240,2Times New Roman,0,0,0>Box = DialogBox(".", "Caps<:f><:f240,2Times New Roman,0,0,0>")
<:f240,2Times New Roman,0,0,0>IF Box = -1
<:f240,2Times New Roman,0,0,0>Message("Could not open dialog box; Exiting macro.")
<:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:f240,2Times New Roman,0,0,0>ELSEIF Box = 0
<:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:f240,2Times New Roman,0,0,0>ELSEIF Box = 3<:f>
<-(><+-><:f240,2Times New Roman,0,0,0>UpperCase<:f><:f240,2Times New Roman,0,0,0>()<--><:f>
<:f240,2Times New Roman,0,0,0>ELSEIF Box=4
<--><+(><:f240,2Times New Roman,0,0,0>SmallCaps()<-(><:f>
<:f240,2Times New Roman,0,0,0>ELSEIF Box=5
<-(>LowerCase()<-(><-(><-(><-(>
<:f240,2Times New Roman,0,0,0>ELSEIF Box=6
Call Dropcap.smm!Dropcap()
<:f240,2Times New Roman,0,0,0>Elseif Box=7<:f>
<-(><:f240,2Times New Roman,0,0,0>InitialCaps()<:f>
<:f240,2Times New Roman,0,0,0>E<:f><:f240,2Times New Roman,0,0,0>NDIF
<:f240,2Times New Roman,0,0,0>END FUNCTION<:f>
<+C><:f240,2Times New Roman,0,0,0>FU<++>NCTION<-+> HelpFun(hdlg, key)
<:f240,2Times New Roman,0,0,0>DialogBox(".","Helper")<:ZCurPos2><:Z~CurPos2>
@Function@<:f240,2Times New Roman,0,0,0>end function
<+C><:f240,2Times New Roman,0,0,0>FU<++>NCTION<-+> Helpcaps<:f><:f240,2Times New Roman,0,0,0>(<:f><:f240,2Times New Roman,0,0,0>)
<:f240,2Times New Roman,0,0,0>DialogBox(".","helpcaps<:f><:f240,2Times New Roman,0,0,0>")
@Function@<:f240,2Times New Roman,0,0,0>end function<:f>
<+C><:f240,2Times New Roman,0,0,0>FU<++>NCTION<-+> Helpcol<:f><:f240,2Times New Roman,0,0,0>s<:f><:f240,2Times New Roman,0,0,0>(<:f><:f240,2Times New Roman,0,0,0>)
<:f240,2Times New Roman,0,0,0>DialogBox(".","helpcols<:f><:f240,2Times New Roman,0,0,0>")
@Function@<:f240,2Times New Roman,0,0,0>end function<:f>
<:f240,2Times New Roman,0,0,0>FUNCTION <:f><:f240,2Times New Roman,0,0,0>cols<:f><:f240,2Times New Roman,0,0,0>(hdlg)<:f>
<:f240,2Times New Roman,0,0,0>thisfile = getrunningmacrofile$()
@If Endif@<+C><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "Helpcol<:f><:f240,2Times New Roman,0,0,0>s<:f><:f240,2Times New Roman,0,0,0>") ' This if F1<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0>Cols<:f><:f240,2Times New Roman,0,0,0>")
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 1<:f><:f240,2Times New Roman,0,0,0> col<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 2 cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 3 cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 4<:f><:f240,2Times New Roman,0,0,0> cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 5<:f><:f240,2Times New Roman,0,0,0> cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 6<:f><:f240,2Times New Roman,0,0,0> cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 7<:f><:f240,2Times New Roman,0,0,0> cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Filledit(9500,"<:f><:f240,2Times New Roman,0,0,0> 8<:f><:f240,2Times New Roman,0,0,0> cols<:f><:f240,2Times New Roman,0,0,0>")<:f>
<:f240,2Times New Roman,0,0,0>Box = DialogBox(".", "Insert")
<:f240,2Times New Roman,0,0,0>IF Box = -1
<:f240,2Times New Roman,0,0,0>Message("Could not open dialog box; Exiting macro.")
<:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:f240,2Times New Roman,0,0,0>ELSEIF Box = 0
<:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:f240,2Times New Roman,0,0,0>ELSEIF Box = 2<:f>
<:f240,2Times New Roman,0,0,0>exit function
<:f240,2Times New Roman,0,0,0>endif
ModifySelect("TextFrame" )
ModifySpacing(1, 0, 0, 0, 90, 0, 100)
ModifyAlignment(264 0 0 0 1 0 )
ModifyReflow( )
StyleManageInit()
StyleManageAction("TextFrame",1,12)
StyleManageFinish()
setdefoptions(283,2)
if getdialogfield$(20)=1
While Not CurShade$()
UserControl("Select text to cut/copy and choose Resume.")
Wend
endif
if getdialogfield$(21)=1
While Not CurShade$()
UserControl("Select text to cut/copy and choose Resume.")
<:#280,9360><:f240,2Times New Roman,0,0,0>metrics = getprofilestring$("wht-text<:f><:f240,2Times New Roman,0,0,0>", "Metrics", "{windir}amipro2.ini")
<:#280,9360><:f240,2Times New Roman,0,0,0>x = strfield$(metrics, 1, ",")
<:#280,9360><:f240,2Times New Roman,0,0,0>y = strfield$(metrics, 2, ",")
<:#280,9360><:f240,2Times New Roman,0,0,0>w = strfield$(metrics, 3, ",")
<:#280,9360><:f240,2Times New Roman,0,0,0>h = strfield$(metrics, 4, ",")
<:#280,9360><:f240,2Times New Roman,0,0,0>movewindow(hdlg, x, y, w, h, 1)
@Function@<:#270,9360><:f240,2Times New Roman,0,0,0>end function
@Function@<:I0,0,0,0><:#270,9360><:f240,2Times New Roman,0,0,255>function init_c(hdlg)
<:#280,9360><:f240,2Times New Roman,0,0,0>movewindow(hdlg, <:f240,2Times New Roman,0,0,255>378<:f240,2Times New Roman,0,0,0>,
<:f240,2Times New Roman,0,0,255>428<:f240,2Times New Roman,0,0,0>,<:f><:f240,2Times New Roman,0,0,0> 240<:f><:f240,2Times New Roman,0,0,0>, 47<:f><:f240,2Times New Roman,0,0,0>, 1<:f><:f240,2Times New Roman,0,0,0>) '<:f><:f200,BArial,0,0,255>first number is
distance in from left; second, from top.<:f>
@Function@<:#270,9360><:f240,2Times New Roman,0,0,255>end function
@Function@<:#270,9360><:f240,2Times New Roman,0,0,0>function curloc(hdlg)
<:#280,9360><:f240,2Times New Roman,0,0,0>dim coord(4)
<:#280,9360><:f240,2Times New Roman,0,0,0>getsize(hdlg, &coord)
<:#280,9360><:f240,2Times New Roman,0,0,0>x = coord(1)
<:#280,9360><:f240,2Times New Roman,0,0,0>y = coord(2)
<:#280,9360><:f240,2Times New Roman,0,0,0>cx = coord(3)
<:#280,9360><:f240,2Times New Roman,0,0,0>cy = coord(4)
<:#280,9360><:f240,2Times New Roman,0,0,0>w = cx - x
<:#280,9360><:f240,2Times New Roman,0,0,0>h = cy - y
<:#280,9360><:f240,2Times New Roman,0,0,0>writeprofilestring("wht-text<:f><:f240,2Times New Roman,0,0,0>", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
<:#280,9360><:f240,2Times New Roman,0,0,0>end function<:f>
>
[Embedded]
00021169
>
[macsum] 19
begin 0 1 5 6
Caps 827 0 5 41
HelpFun 1429 2 1 66
Helpcaps 1472 0 1 69
Helpcols 1518 0 1 72
cols 1564 1 5 75
bm 4194 0 1 190
set_focus 4487 1 1 208
HelpFun 4601 2 1 215
box1 4644 0 -1 218
insert 4947 0 -1 226
Text 5313 0 -1 236
Caps 6219 0 -1 251
Helper 6740 0 -1 260
Helpcaps 7499 0 -1 276
Helpcols 7994 0 -1 288
init 8298 1 7 295
init_c 8546 1 1 303
curloc 8625 1 9 306
[macse]
14 begin
0 802
13
8 2
0 286 "wht-text" "Metrics" "{4}amipro2.ini"
13
8 3
6 3
7 ""
18 1
11 00000129
0 41 0 "{2}!init"
0 41 20 "{2}!curloc"
0 47 112 "HelpFun"
0 26 "." "Text"
13
8 5
6 5
5 -1
18 0
11 00000301
0 3 "Could not open dialog box; Exiting macro."
6 1
15
9
10 00000815
6 5
5 0
18 0
11 00000355
6 1
15
9
10 00000815
6 5
5 3
18 0
11 00000405
24 251
10 00000815
6 5
5 4
18 0
11 00000456
16 Caps
10 00000815
6 5
5 5
18 0
11 00000506
24 258
10 00000815
6 5
5 6
18 0
11 00000557
2 257 1
10 00000815
6 5
5 7
18 0
11 00000616
16 flwcurve.smm
10 00000815
6 5
5 8
18 0
11 00000675
16 smartype.smm
10 00000815
6 5
5 9
18 0
11 00000725
24 252
10 00000815
6 5
5 10
18 0
11 00000776
24 265
10 00000815
6 5
5 11
18 0
11 00000815
16 cols
6 1
15
9
14 Caps
0 802
13
8 1
0 286 "wht-text" "Metrics" "{3}amipro2.ini"
13
8 2
6 2
7 ""
18 1
11 00000128
0 41 0 "{1}!init"
0 47 112 "Helpcaps"
0 26 "." "Caps"
13
8 4
6 4
5 -1
18 0
11 00000279
0 3 "Could not open dialog box; Exiting macro."
6 0
15
9
10 00000590
6 4
5 0
18 0
11 00000333
6 0
15
9
10 00000590
6 4
5 3
18 0
11 00000384
2 273 1
10 00000590
6 4
5 4
18 0
11 00000435
2 289 1
10 00000590
6 4
5 5
18 0
11 00000486
2 287 1
10 00000590
6 4
5 6
18 0
11 00000552
16 Dropcap.smm!Dropcap
10 00000590
6 4
5 7
18 0
11 00000590
2 288 1
6 0
15
9
14 HelpFun
0 26 "." "Helper"
6 2
15
9
14 Helpcaps
0 26 "." "helpcaps"
6 0
15
9
14 Helpcols
0 26 "." "helpcols"
6 0
15
9
14 cols
0 802
13
8 2
0 47 112 "Helpcols"
0 31 9500 "Cols"
0 31 9500 " 1 col"
0 31 9500 " 2 cols"
0 31 9500 " 3 cols"
0 31 9500 " 4 cols"
0 31 9500 " 5 cols"
0 31 9500 " 6 cols"
0 31 9500 " 7 cols"
0 31 9500 " 8 cols"
0 26 "." "Insert"
13
8 3
6 3
5 -1
18 0
11 00000363
0 3 "Could not open dialog box; Exiting macro."
6 1
15
9
10 00000458
6 3
5 0
18 0
11 00000417
6 1
15
9
10 00000458
6 3
5 2
18 0
11 00000458
6 1
15
9
2 311 1 "TextFrame"
2 316 1 1 0 0 0 90 0 100
2 313 1 264 0 0 0 1 0
2 319 1
2 321 1
2 322 1 "TextFrame" 1 12
2 326 1
2 173 1 283 2
0 27 20
13
5 1
18 0
11 00000724
0 24
13
1 3
11 00000724
0 7 "Select text to cut/copy and choose Resume."
10 00000633
0 27 21
13
5 1
18 0
11 00000852
0 24
13
1 3
11 00000852
0 7 "Select text to cut/copy and choose Resume."
10 00000761
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 4
0 27 9500
13
7 " 1 col"
18 0
11 00000987
5 1
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 2 cols"
18 0
11 00001070
5 2
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 3 cols"
18 0
11 00001153
5 3
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 4 cols"
18 0
11 00001236
5 4
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 5 cols"
18 0
11 00001319
5 5
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 6 cols"
18 0
11 00001402
5 6
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 7 cols"
18 0
11 00001485
5 7
8 5
10 00001555
10 00002618
0 27 9500
13
7 " 8 cols"
18 0
11 00002618
5 8
8 5
10 00001555
0 27 20
13
5 1
18 0
11 00001627
2 153 1
10 00001673
10 00002618
0 27 21
13
5 1
18 0
11 00002024
2 154 1
0 802
13
0 16 [X] "!set_focus({4})"
13
0 285 [X] 0.01
0 41 0 "{2}!init_c"
0 26 "." "box1"
13
8 3
6 3
5 1
18 0
11 00001927
0 800
13
1 3
11 00001894
0 3 "You must create a frame to continue."
10 00001673
16 bm
10 00002441
10 00002011
6 3
5 3
18 0
11 00002011
0 800
13
1 3
11 00001998
0 36 "[27]"
10 00002618
10 00002618
0 800
13
11 00002128
0 293
13
11 00002102
0 36 "[27][13]"
10 00002115
0 36 "[13]"
10 00002441
0 802
13
0 16 [X] "!set_focus({4})"
13
0 285 [X] 0.01
0 41 0 "{2}!init_c"
0 26 "." "box1"
13
8 3
6 3
5 1
18 0
11 00002497
0 800
13
1 3
11 00002349
0 3 "You must create a frame to continue."
10 00002128
0 36 "[13][123]"
2 810 1 6 0 -2 360 1
2 810 1 6 1 -2 720 1
2 810 1 7 "{5}"
10 00002581
2 810 1 7 "{5}"
0 36 "[27]"
10 00002581
10 00002581
6 3
5 3
18 0
11 00002581
0 800
13
1 3
11 00002568
0 36 "[27]"
10 00002618
2 421 1
2 417 1 128 10 ""
2 420 1
6 1
15
9
14 bm
0 36 "[13]"
0 36 "[32][4133]"
2 466 1 "S.G.B." 4003
2 155 1
2 466 1 "A.B.B." 4003
2 466 1 "S.G.B." 4002
2 452 2 4 0 12
2 810 1 6 0 -2 360 1
2 810 1 6 1 -2 720 1
2 262 1
0 6 "[123]"
2 466 1 "S.G.B." 4002
0 36 "[46]"
2 466 1 "S.G.B." 4004
2 466 1 "A.B.B." 4004
6 0
15
9
14 set_focus
0 32 1
0 284 "User,EnableWindow,HHH" "{0}" 1
0 284 "user,SetFocus,HH" "{0}"
2 409 1
6 1
15
9
14 HelpFun
0 26 "." "Helper"
6 2
15
9
DIALOG box1
-2143289344 4 100 97 135 22 "" "" ""
FONT 8 "Arial"
100 0 30 10 1 1342373889 "button" "Continue" 0
100 11 30 10 3 1342373888 "button" "Quit" 0
1 1 97 19 1000 1342177286 "static" "text" 0
8 2 87 16 1001 1342177280 "static" "Click and drag to create your frame, then Continue." 0